perm filename CONC.F4[1,LCS] blob
sn#583760 filedate 1981-04-30 generic text, type T, neo UTF8
00100 7 FORMAT(' TYPE FILE NAME '$)
00110 TYPE 7
00125 ACCEPT 1,NAM
00150 REAL T,C,A,L
00200 CALL IFILE(1,NAM)
00250 READ(1,1)TT
00275 READ(1,1)TT
00287 READ(1,1)TT
00300 1 FORMAT(A5,5F)
00325 11 FORMAT(4F)
00350 TT=0
00354 CC=0
00358 AA=0
00362 RL=0
00377 Z=0
00400 2 READ(1,1,END=100)J,T,C,A,L
00420 CC TYPE 11,Z,T,C,A
00500 TT=TT+T
00600 CC=CC+C
00700 AA=AA+A
00800 RL=RL+L
00850 Z=Z+1.
00900 GO TO 2
01000 100 TX=TT/Z
01100 CX=CC/Z
01200 AX=AA/Z
01300 XL=RL/Z
01350 TYPE 11,Z,TT,CC,AA,RL
01400 TYPE 11,TX,CX,AX,XL
01500 END